VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "SetDisplaySet"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Public Function SetDisplaySet(Flag As Boolean)

    Dim pidAutoApp As PIDAutomation.Application
    Set pidAutoApp = New PIDAutomation.Application
    Dim displaySets As IDisplaySetinf.ISPDisplaySets
    Set displaySets = pidAutoApp.ActiveDrawing.ViewDisplaySets
    Dim dispSet As IDisplaySetinf.ISPDisplaySet
    For I = 1 To displaySets.Count
      
    Next
    Set dispSet = displaySets.Item(3)
    If Flag = True Then
        pidAutoApp.ActiveDrawing.ApplyDisplaySet dispSet
    ElseIf Flag = False Then
        pidAutoApp.ActiveDrawing.ClearDisplaySet
    End If
    pidAutoApp.ClearAll

End Function

